COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	% TABLE OF CONTENTS & PLATES
C00005 ENDMK
C⊗;
% TABLE OF CONTENTS & PLATES

	% Table of contents (chapters, sections, etc.):
\def\tableofcontents#1{\dotableofcontents{#1}{\Contents}{9}{tofc}}

	% Table of figures and tables:
\def\tableofplates#1{\dotableofcontents{#1}{\Plates}{8}{tofp}}

	% Add entry to table of contents: #1 (=1,2,3) is level of indentation,
	%   #2 = title as it is to appear on t. of c., #3 = page NUM plus 1
\def\addtotofc#1#2#3{{\tofctypeface\send9{|tofcline{#1}{#2}{#3}}}}

	% Add entry to table of figures and tables; #1 = one line caption, #2 = NUM
	%   as above
\def\addtotofp#1#2{{\tofctypeface\send8{|tofpline{#1}{#2}}}}

	% Font used for t. of c., p.
\let\tofctypeface=\ninepoint


% THE following are for internal use only; use at own risk:
	% Generate table of contents:
\def\dotableofcontents#1#2#3#4{\endpage\romannumbering{#1}
	\headline{#2}
	\if T\ddvnum{\gdef\rhevenpg{#2}}
               \else{\gdef\rhevenpg{}}
	\gdef\rhoddpg{#2}
	\titlemark{\rhevenpg}{\rhoddpg}
	{\tofctypeface
	 \rjustline{\Page}
	 \chcode '174←0	% | enabled as escape char.
	 \open #3=jk#4.tmp
	 \def\cr{}
	 \input #4.tmp
	 \endpage}}
	% The t.c. output routine;
\def\tofcline#1#2#3{
	\if1#1{\vskip 15pt plus 8pt minus 4pt\penalty -50
		\tofcbox{0vu}{#2}{#3}\vskip 4pt plus 2pt\penalty 250}
	\else{\if2#1{\tofcbox{.25vu}{#2}{#3}\penalty 125}
	      \else{\tofcbox{.5vu}{#2}{#3}\penalty 50}} }
\def\tofcbox#1#2#3{
	\hbox to size{\hbox to #1{}#2\leadtc \setcount9#3\advcount9 by-1
		      \hbox to 1.5em{\hfill\count9} }}
	% The t.p. output routine
\def\tofpline#1#2{\tofcbox{0pt}{#1}{#2}}
	% Cons t. of c.
\def\constofc#1#2{\addtotofc{#1}{#2}{\count0}}
\def\constofp#1{\addtotofp{#1}{\count0}}
	% Leaders (. . .); see manual
\def\leadtc{\leaders\hbox to 8pt{\hfill.\hfill}\hfill}
	%Initialize files:
\open 9=tofc.tmp
\open 8=tofp.tmp